10 REM ********************************
12 REM *                              *
14 REM *   H   E   L   P     6   4    *
16 REM *   -----------------------    *
18 REM *                              *
20 REM * PROGRAM 2 : SCREEN GENERATOR *
22 REM *                              *
24 REM * THIS PROGRAM WILL DISPLAY    *
26 REM * AND WRITE EACH OF THE 10     *
28 REM * HELP SCREENS TO DISK.        *
30 REM *                              *
32 REM *                              *
34 REM * COPYRIGHT (C) ANDREW LEEDER, *
36 REM *               DECEMBER 1988. *
38 REM *                              *
40 REM ********************************
50 :
100 OPEN1,8,2," H.SCREENS,P,W":PRINT#1,CHR$(0);CHR$(160);:FORI=1TO10
110 PRINT"[147]":ONIGOSUB1000,2000,3000,4000,5000,6000,7000,8000,9000,10000
120 PRINT""HD$:FORJ=0TO15:PRINT#1,CHR$(PEEK(1065+J));:NEXTJ
130 PRINT#1,CHR$(BD);CHR$(BG);CHR$(FM);CHR$(FG);
140 FORJ=1145TO1945STEP40:FORK=JTOJ+37:PRINT#1,CHR$(PEEK(K));:NEXTK,J,I:CLOSE1
150 PRINT"[147]FINISHED.":END
160 :
999 REM ******************HELP SCREEN 1
1000 HD$="[213]SEFUL [193]DDRESSES":BD=6:BG=1:FM=12:FG=0
1010 PRINT"[193]DDRESS[221][196]ESCRIPTION"
1020 PRINT"[192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
1030 PRINT"43-44[221][208]OINTER: [211]TART OF [194][193][211][201][195] TEXT"
1040 PRINT"45-46[221][208]OINTER: [211]TART [194][193][211][201][195] VARIABLES"
1050 PRINT"55-56[221][200]IGHEST ADDRESS USED BY [194][193][211][201][195]"
1060 PRINT"197[221][195]URRENT KEY PRESSED (64=NONE)"
1070 PRINT"198[221][206]O. CHARS IN KEYBOARD BUFFER"
1080 PRINT"251-254[221][198]REE ZERO PAGE LOCATIONS"
1090 PRINT"646[221][198]OREGROUND (CHARACTER) COLOUR"
1095 PRINT"647[221][194]ACKGROUND COLOUR UNDER CURSOR"
1100 PRINT"648[221][208]OINTER: [211]CREEN [205]EMORY"
1110 PRINT"631-640[221][203]EYBOARD BUFFER (10 BYTES)"
1120 PRINT"650[221][203]EY REPEAT: 0=NORMAL,"
1130 PRINT"[221]     100=DISABLE, 255=ALL KEYS"
1140 PRINT"653[221][211]HIFT/[195]TRL/[195]= [203]EYS, 1=[211]HIFT,"
1145 PRINT"[221]       2=[195]OMMODORE, 4=[195]TRL KEY"
1150 PRINT"788-789[221][201][210][209] [214]ECTOR (NORMALLY 59953)"
1160 PRINT"828-   [221][195]ASSETTE BUFFER: CAN USE FOR"
1170 PRINT"1023[221]    3 SPRITES (AT 832,896,960)"
1200 PRINT"1024-[221][211]CREEN MEMORY (1000 BYTES)"
1210 PRINT"55296-[221][195]OLOUR MEMORY (1000 BYTES)"
1990 RETURN
1998 :
1999 REM *****************HELP SCREEN 2
2000 HD$="[195]HARACTER [195]ODES ":BD=6:BG=1:FM=12:FG=0
2010 PRINT"":TB=3:CH=0:FORB=1146TO1146+24STEP5:FORA=BTOB+720STEP40
2020 POKEA+4,93:POKEA,CH:PRINTTAB(TB);CH:CH=CH+1:NEXTA:PRINT"":TB=TB+5:NEXTB
2030 AD=1171:FORA=95TO113:POKEAD+5,93:POKEAD,A:AD=AD+40:PRINTTAB(28);A:NEXTA
2040 PRINT"":AD=1177:FORA=114TO127:POKEAD,A:AD=AD+40:PRINTTAB(34);A:NEXTA
2050 PRINT"[195]ODES 128-255 ARE REVERSED IMAGES OF "
2060 PRINT"CODES 0-127, SO ADD 128"
2990 RETURN
2998 :
2999 REM *****************HELP SCREEN 3
3000 HD$="     [195]OLOUR     ":BD=6:BG=1:FM=12:FG=0
3010 PRINT"0  [194]LACK  [195][212][210][204] 1 [221]    0123456789012345"
3020 PRINT"1  [215]HITE  [195][212][210][204] 2 [221]  0 [216][186][216][186][186]*[216][186][186][216][186][186][186][186][186][186]"
3030 PRINT"2  [210]ED    [195][212][210][204] 3 [221]  1 [186][216][186][216][186][186][186][216]*[186]*[186][186][216][186][186]"
3040 PRINT"3  [195]YAN   [195][212][210][204] 4 [221]  2 [216][186][216][216]*[216][216][186][186][216][186][216][216][216][216][186]"
3050 PRINT"4  [208]URPLE [195][212][210][204] 5 [221]  3 [186][216][216][216][216]*[186][216][216][216][216]*[216][216]*[216]"
3060 PRINT"5  [199]REEN  [195][212][210][204] 6 [221]  4 [186]*[216][216][216][216][216][216][216][216][216][216][216][216][216]*"
3070 PRINT"6  [194]LUE   [195][212][210][204] 7 [221]  5 [186]*[216]*[216][216][216][216][216][216][216]*[216][186][216]*"
3080 PRINT"7  [217]ELLOW [195][212][210][204] 8 [221]  6 *[186][216][186][216][216][216][216][216][216][216][216][216]*[186][186]"
3090 PRINT"8  [207]RANGE   [195]= 1 [221]  7 [186][216][186][216][216][216]*[216]*[186]*[186][186][216][216][216]"
3100 PRINT"9  [194]ROWN    [195]= 2 [221]  8 *[186][186][216][216][216][216][186][216][186][216][216][216][216][216]*"
3110 PRINT"10 [204]T [210]ED   [195]= 3 [221]  9 [216][186][216][216][216][216][216][186][186][216][186][216][216][216][216][186]"
3120 PRINT"11 [199]REY 1   [195]= 4 [221] 10 **[186][216][216][216][216]*[216][186][216][216][216][216][216]*"
3130 PRINT"12 [199]REY 2   [195]= 5 [221] 11 [186][186][216]*[216][216][216][186][216][216][216][216][186][186]*[186]"
3140 PRINT"13 [204]T [199]REEN [195]= 6 [221] 12 [186][186]*[216][216][216]*[216][216]*[216][186][216][216][216][186]"
3150 PRINT"14 [204]T [194]LUE  [195]= 7 [221] 13 [186][216][216][216][216][186]*[216][216][216][216][186][216][216][216][216]"
3160 PRINT"15 [199]REY 3   [195]= 8 [221] 14 [186][186][216][186][216][216][186][216][216][216][216]*[216][216][216]*"
3170 PRINT"[221] 15 [186][186][186][216]**[186][216][216]**[186][186][216]*[216]"
3175 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
3180 PRINT"[208][207][203][197]   646,FOREGROUND [221]   [186] = [199][207][207][196] [205][201][216]"
3190 PRINT"[208][207][203][197] 53280,BORDER    [160][221]   * = [198][193][201][210] [205][201][216]"
3200 PRINT"[208][207][203][197] 53281,BACKGROUND [221]   [216] = [208][207][207][210] [205][201][216]"
3990 RETURN
3998 :
3999 REM *****************HELP SCREEN 4
4000 HD$="   [203]EY [208]RESS    ":BD=6:BG=1:FM=12:FG=0
4010 PRINT"0 [196]EL   [221] 21 [198] [221] 42 [204]    [221] 63 [206]ONE"
4020 PRINT"1 [210]ETURN[221] 22 [212] [221] 43 -    [221] 64 [206]O KEY"
4030 PRINT"2 [210]IGHT [221] 23 [216] [221] 44 .    [221]    PRESSED"
4040 PRINT"3 [198]7    [221] 24 7 [221] 45 :    [221][192][192][192][192][192][192][192][192][192][192][192]"
4050 PRINT"4 [198]1    [221] 25 [217] [221] 46 @    [221]197 HOLDS"
4060 PRINT"5 [198]3    [221] 26 [199] [221] 47 ,    [221]A CODED"
4070 PRINT"6 [198]5    [221] 27 8 [221] 48 \    [221]VALUE FOR"
4080 PRINT"7 [196]OWN  [221] 28 [194] [221] 49 *    [221]THE CURRENT"
4090 PRINT"8 3     [221] 29 [200] [221] 50 ;    [221]KEY PRESSED"
4100 PRINT"9 [215]     [221] 30 [213] [221] 51 [195]LEAR[221][210]EFER TO"
4110 PRINT"10 [193]     [221] 31 [214] [221] 52 [206]ONE [221]THIS TABLE"
4120 PRINT"11 4     [221] 32 9 [221] 53 =    [221]FOR THESE"
4130 PRINT"12 [218]     [221] 33 [201] [221] 54 ^    [221]VALUES."
4140 PRINT"13 [211]     [221] 34 [202] [221] 55 /    [221][201]F MORE"
4150 PRINT"14 [197]     [221] 35 0 [221] 56 1    [221]THAN ONE"
4160 PRINT"15 [206]ONE  [221] 36 [205] [221] 57 _    [221]KEY IS"
4170 PRINT"16 5     [221] 37 [203] [221] 58 [206]ONE [221]PRESSED THE"
4180 PRINT"17 [210]     [221] 38 [207] [221] 59 2    [221]HIGHER IS"
4190 PRINT"18 [196]     [221] 39 [206] [221] 60 [211]PACE[221]STORED."
4200 PRINT"19 6     [221] 40 + [221] 61 [206]ONE [221]"
4210 PRINT"20 [195]     [221] 41 [208] [221] 62 [209]    [221]"
4990 RETURN
4998 :
4999 REM *****************HELP SCREEN 5
5000 HD$="   [205]EMORY [205]AP   ":BD=6:BG=1:FM=12:FG=0
5010 PRINT"65535[176][192][192][192][192][192][192][192][192][192][192][192][192][174]$[198][198][198][198][221][195]HARACTER [210][207][205]"
5020 PRINT"[221]8[203] [203]ERNAL[210][207][205][221]     [221]AT 53248 (4[203])"
5030 PRINT"57344[171][192][192][192][192][192][192][192][192][192][192][192][192][179]$[197]000[221]    [201]MAGE AT"
5040 PRINT"[221][201]NPUT/[207]UTPUT[221]     [221]    4096-8191"
5050 PRINT"56320[171][192][192][192][192][192][192][192][192][192][192][192][192][179]$[196][195]00[171][192][192][192][192][192][192][192][192][192][192][192][192][192]"
5060 PRINT"[221][195]OLOUR [210][193][205]  [221]     [221][207]N POWER UP,"
5070 PRINT"55296[171][192][192][192][192][192][192][192][192][192][192][192][192][179]$[196]800[221][214][201][195] [201][201] SEES"
5080 PRINT"[221][214][201][195] [201][201] &[160][211][201][196][221]     [221]1ST 16[203] [194]ANK"
5090 PRINT"53248[171][192][192][192][192][192][192][192][192][192][192][192][192][179]$[196]000[221](0-16383)"
5100 PRINT"[221]4[203] [198]REE [210][193][205] [221]     [171][192][192][192][192][192][192][192][192][192][192][192][192][192]"
5110 PRINT"49152[171][192][192][192][192][192][192][192][192][192][192][192][192][179]$[195]000[221]$0001 (1)"
5120 PRINT"[221]8[203] [194]ASIC [210][207][205][221]     [221]CONTROLS"
5130 PRINT"40960[171][192][192][192][192][192][192][192][192][192][192][192][192][179]$[193]000[221]SWITCHING OF"
5140 PRINT"[221]38[203] [198]REE    [221]     [221][210][193][205]"
5150 PRINT"16384[221]   [213]SER [210][193][205] [221]$4000[221] - BIT 0"
5160 PRINT"2048[171][192][192][192][192][192][192][192][192][192][192][192][192][179]$0800[221] [194]ASIC [210][207][205]"
5170 PRINT"[221][211]PR [208]OINTERS[221]     [221]   0=[210][193][205]"
5180 PRINT"[221][212]EXT [211]CREEN [221]     [221]   1=[210][207][205] IN"
5190 PRINT"1024[171][192][192][192][192][192][192][192][192][192][192][192][192][179]$0400[221] - BIT 1"
5200 PRINT"[221][211]YSTEM [205]EM  [221]     [221] [203]ERNAL [210][207][205]"
5210 PRINT"0[173][192][192][192][192][192][192][192][192][192][192][192][192][189]$0000[221]   SAME"
5990 RETURN
5998 :
5999 REM *****************HELP SCREEN 6
6000 HD$="   [214]IDEO  (1)   ":BD=6:BG=1:FM=12:FG=0
6010 PRINT"53248 [211]PRITE 0 [216] POSITION REGISTER"
6020 PRINT"53249          [217] POSITION REGISTER"
6030 PRINT"... AND SO ON TO 53263 ([211]PRITE 7 [217])"
6040 PRINT"53264 [205]OST [211]IGNIFICANT [194]IT OF [216] POS"
6050 PRINT"FOR SPRITES 0-7, BIT 0=SPRITE 0 [205][211][194]"
6060 PRINT"... BIT 7=SPRITE 7 [205][211][194]"
6070 PRINT"53265 BIT 0-2:VERTICAL SCROLLING"
6080 PRINT"BIT   3:SCREEN HEIGHT, 0=24 ROWS"
6090 PRINT"1=25 ROWS"
6100 PRINT"BIT   4:DISPLAY ON/OFF, 0=OFF"
6110 PRINT"1=ON"
6120 PRINT"BIT   5:BIT MAP ON/OFF"
6130 PRINT"BIT   6:EXTENDED COLOUR ON/OFF"
6140 PRINT"BIT   7:[205][211][194] OF RASTER REGISTER"
6150 PRINT"53266 [210]ASTER REGISTER.  [210]EAD TO FIND"
6160 PRINT"CURRENT LINE BEING DRAWN."
6170 PRINT"[215]RITE TO GENERATE INTERRUPT."
6180 PRINT"53267 [204]IGHT PEN [216] POSITION"
6190 PRINT"53268 [204]IGHT PEN [217] POSITION"
6200 PRINT"53269 [197]NABLE/DISABLE SPRITES 0-7, EACH"
6210 PRINT"BIT EQUIVALENT TO SPRITE NUMBER"
6990 RETURN
6998 :
6999 REM *****************HELP SCREEN 7
7000 HD$="   [214]IDEO  (2)   ":BD=6:BG=1:FM=12:FG=0
7005 PRINT"53270 BIT 0-2:HORIZONTAL SCROLLING"
7006 PRINT"BIT   3:SCREEN WIDTH"
7010 PRINT"BIT 4-5:[211]ET/[210]ESET [205]ULTICOLOUR"
7020 PRINT"BIT 6-7:UNUSED"
7030 PRINT"53271 [217] EXPANSION OF SPRITES 0-7"
7040 PRINT"53272 [204]OCATION OF SCREEN MEMORY,COLOUR"
7050 PRINT"MEMORY,CHARACTER MEMORY"
7060 PRINT"BIT 1-3:CHARACTER SET POSITION"
7070 PRINT"BIT 4-7:SCREEN POSITION"
7080 PRINT"(OR COLOUR MEMORY, IF BITMAP ON)"
7090 PRINT"53273 [212]YPE OF INTERRUPT WHICH OCCURRED"
7100 PRINT"53274 [197]NABLE INTERRUPT TO OCCUR"
7110 PRINT"53275 [211]PRITE TO BACKGROUND PRIORITY,"
7120 PRINT"EACH BIT EQUIVALENT TO SPRITE NO"
7130 PRINT"53276 [211]PRITE HIRES/MULTICOLOUR TOGGLE"
7140 PRINT"53277 [216] EXPANSION - SPRITES 0-7"
7150 PRINT"53278 [211]PRITE-TO-SPRITE COLLISIONS"
7160 PRINT"53279 [211]PRITE-TO-BACKGROUND COLLISIONS"
7170 PRINT"53280 [211]CREEN BORDER COLOUR"
7180 PRINT"53281 [211]CREEN BACKGROUND COLOUR"
7190 PRINT"53287-53294 [211]PRITES 0-7 COLOUR"
7990 RETURN
7998 :
7999 REM *****************HELP SCREEN 8
8000 HD$="     [211]OUND      ":BD=6:BG=1:FM=12:FG=0
8010 PRINT"[214]OICE 1:"
8020 PRINT"54272 [198]REQUENCY LOW BYTE   (0-255)"
8030 PRINT"54273 [198]REQUENCY HIGH BYTE  (0-255)"
8040 PRINT"54274 [208]ULSE WIDTH LOW BYTE (0-255)"
8050 PRINT"54275 [208]ULSE WIDTH HIGH BYTE (0-15)"
8060 PRINT"54276 [215]AVEFORM 16=TRIANGLE  64=PULSE"
8070 PRINT"32=SAWTOOTH 128=NOISE"
8080 PRINT"54277 [193]TTACK/[196]ECAY (USE ATT*16+DEC)"
8090 PRINT"54278 [211]USTAIN/[210]ELEASE (SUS*16+REL)"
8100 PRINT"[214]OICE 2: 54279-54285 SAME AS ABOVE"
8110 PRINT"[214]OICE 3: 54286-54292 SAME AS ABOVE"
8120 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
8130 PRINT"54295:BITS 0-2  - FILTER SWITCHES FOR"
8140 PRINT"VOICES 1,2,3  0=OFF, 1=FILTER ON"
8150 PRINT"BITS 4-7  - RESONANCE SETTING"
8160 PRINT"54296:BITS 0-3  - VOLUME (0-15)"
8170 PRINT"4  - LOWPASS FILTER"
8180 PRINT"5  - BANDPASS"
8190 PRINT"6  - HIGHPASS    54297-8"
8200 PRINT"54299:OSCILLATOR 3 OUTPUT     PADDLES"
8210 PRINT"54300:ENVELOPE 3 OUTPUT       (PORT 1)"
8990 RETURN
8998 :
8999 REM *****************HELP SCREEN 9
9000 HD$="  [196]OS/[208]RINTER   ":BD=6:BG=1:FM=12:FG=0
9010 PRINT"[207][208][197][206]15,8,15 , THEN:"
9020 PRINT"[198]ORMAT    : [208][210][201][206][212]#15,"CHR$(34)"[206]0:DISKNAME,ID"CHR$(34)
9030 PRINT"[210]ENAME    : [208][210][201][206][212]#15,"CHR$(34)"[210]0:NEW=OLD"CHR$(34)
9040 PRINT"[211]CRATCH   : [208][210][201][206][212]#15,"CHR$(34)"[211]0:FILENAME"CHR$(34)
9050 PRINT"[214]ALIDATE  : [208][210][201][206][212]#15,"CHR$(34)"[214]0"CHR$(34)
9060 PRINT"[201]NITIALISE: [208][210][201][206][212]#15,"CHR$(34)"[201]0"CHR$(34)
9070 PRINT"AND [195][204][207][211][197] 15"
9080 PRINT"[212]O READ ERROR CHANNEL:"
9090 PRINT"[207][208][197][206]15,8,15:[201][206][208][213][212]#15,[197][210],[197][210]$,[212][203],[211][210]"
9100 PRINT"[208][210][201][206][212][197][210],[197][210]$,[212][203],[211][210]:[195][204][207][211][197]15"
9110 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
9120 PRINT"[197]NHANCE [207]N/[207]FF       [195][200][210]$(14)/[195][200][210]$(15)"
9130 PRINT"[210]EVERSE [207]N/[207]FF      [195][200][210]$(18)/[195][200][210]$(146)"
9140 PRINT"[212]AB (N IS TAB POSITION)   [195][200][210]$(16);"CHR$(34)"N"CHR$(34)
9150 PRINT"[195]ARRIAGE [210]ETURN               [195][200][210]$(13)"
9160 PRINT"[204]INE [198]EED                     [195][200][210]$(10)"
9170 PRINT"[213]PPERCASE/[199]RAPHICS [207]N         [195][200][210]$(34)"
9180 PRINT"[213]PPER/[204]OWERCASE [207]N            [195][200][210]$(17)"
9190 PRINT"[209]UOTE ("CHR$(34)")                     [195][200][210]$(34)"
9200 PRINT"[194]ITMAP [208]RINTING [207]N             [195][200][210]$(8)"
9210 PRINT"[210]EPEATED [194]IT [201]MAGE    [195][200][210]$(26);[195][200][210]$(N)"
9990 RETURN
9998 :
9999 REM ****************HELP SCREEN 10
10000 HD$=" [205]ISCELLANEOUS  ":BD=6:BG=1:FM=12:FG=0
10010 PRINT"[202][207][217][211][212][201][195][203][211]:"
10020 PRINT"[208]ORT 1 - [208][197][197][203](56321), 2 - [208][197][197][203](56320)"
10030 PRINT"[176][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][174]"
10040 PRINT"[221] - [221] - [221] - [221][198]IRE[221][210]IGHT[221][204]EFT[221][196]OWN[221][213]P[221]"
10050 PRINT"[173][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][189]"
10060 PRINT" [194][201][212] 7   6   5    4     3    2    1  0"
10070 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
10080 PRINT"[208][207][203][197]808,251    [196]ISABLE [210]UN[211]TOP/[210]ESTORE"
10090 PRINT"[208][207][203][197]774,131:[208][207][203][197]775,164   [196]ISABLE [204][201][211][212]"
10100 PRINT"[208][207][203][197]818,133:[208][207][203][197]819,164   [196]ISABLE [211][193][214][197]"
10110 PRINT"[208][207][203][197]774,226:[208][207][203][197]775,252  [210]ESET ON [204][201][211][212]"
10115 PRINT"[208][207][203][197]818,226:[208][207][203][197]819,252  [210]ESET ON [211][193][214][197]"
10120 PRINT"[208][207][203][197]19,2    [210]EMOVE ? FROM [201][206][208][213][212] PROMPT"
10130 PRINT"[208][207][203][197]19,0    [210]ESTORE [201][206][208][213][212] PROMPT"
10150 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
10160 PRINT"[212]O STOP DISK DRIVE HEAD BANG, USE:"
10170 PRINT"[207][208][197][206]15,8,15,"CHR$(34)"[205]-[215]"CHR$(34)"+[195][200][210]$(106)+[195][200][210]$(0)+"
10180 PRINT"+[195][200][210]$(1)+[195][200][210]$(133):[195][204][207][211][197]15"
10190 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
10200 PRINT"[211][217][211]65126  [215]ARM [211]TART ([210]UN[211]TOP/[210]ESTORE)"
10210 PRINT"[211][217][211]64738  [195]OLD [211]TART ([210]ESET)"
10990 RETURN